|
|
| |
<% if request.querystring("action")="addok" then%>
<% else %>
<% end if %>
<%
set rs=server.createobject("adodb.recordset")
sqlstr="select top 1 * from lyset"
rs.open sqlstr,conn,1,3
set11=rs("isview")
if set11="yes" then
%>
<%
pageno=request.querystring("pageno")
pmcount=5 '每页记录数
set reco=server.createobject("ADODB.recordset")
sqlstr="select * from lyb order by id desc"
reco.open sqlstr,conn,1,1
%>
<% if reco.eof and reco.bof then %>
<% else %>
<%
reco.pagesize=pmcount
mpage=reco.pagecount
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
pageno=1
end if
reco.absolutepage=pageno
%>
<%
rc=reco.pagesize
re=1
do while not reco.eof and rc>0
name=reco("name")
email=reco("email")
bzdate=reco("bzdate")
homeurl=reco("homeurl")
redate=reco("redate")
ly=reco("ly")
bzly=reco("bzly")
redate=trim(redate)
bzdate=trim(bzdate)
%>
<%=name%> 于<%=redate%>发表了如下留言 
 |
| 留言内容 |
<%=ly%> |
<%if bzly<>"" then%>
|
版主回复 |
<%=bzly%>
回复时间：<%=bzdate%> |
<%else%>
| 暂无回复 |
<% end if%>
<%
reco.movenext
re=re+1
rc=rc-1
loop
%>
[
<%for pno=1 to mpage
if pno=cint(pageno) then%>
<%=pno%>
<%else%>
<%=pno%>
<%end if%>
<%next%>
] |
<% end if %> |
<%end if%>
|
|
|
|
|
